home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 5
/
Amiga Plus Sonderheft 1996 #5.iso
/
programme
/
imagedesk304
/
import_ps
/
import_ps3.idesk
< prev
Wrap
Text File
|
1996-05-02
|
2KB
|
60 lines
/* --------------------- ARexx-Script zur Uebergabe eines Bildes an PS3 ------------------- */
/* ------------------------------------- Version 1.0 -------------------------------------- */
/* ------------------- von Volkmar Funke -- EMail: Volkmar_Funke@BN.maus.de ----------------*/
/* --- Dieses ARexx-Script importiert ein ausgewaehltes Bild von ImageDesk in PageStream ---*/
/* ----- mit Beruecksichtigung, das PageStream kein JPEG unterstuetzt (Zusatzmodul) --------*/
OPTIONS RESULTS
PARSE ARG iname itype ipos
/* Sicherstellung das ARexx supportet ist */
IF ~SHOW('L','rexxsupport.library') THEN
CALL ADDLIB('rexxsupport.library',0,-30)
IF ~SHOW('L','softlogik:libs/slarexxsupport.library') THEN
CALL ADDLIB('softlogik:libs/slarexxsupport.library', 0, -30)
if ~show(P, 'PAGESTREAM') then do /* Fehlermeldung falls PageStream nicht gestartet ist*/
ADDRESS 'IDESK_REXXPORT'
IDREQUEST "OK" '" PageStream nicht gestartet "'
EXIT
end
if '"'||itype||'"'=='" JPG"' then do /* Abfrage ob JPEG-Format */
IDREQUEST "OK" '" PageStream unterstuetzt kein JPEG-Format! "'
EXIT
end
ADDRESS 'PAGESTREAM'
/* Uebergabe der Grafik, falls kein Dokument geoeffnet Fehlermeldung */
'refresh wait'
placegraphic FILE '"'||iname||'"'
if rc~=0 then do
ADDRESS 'IDESK_REXXPORT'
IDREQUEST "OK" '" Kein Dokument in PageStream offen "'
signal cancel
end
/* Typfestlegung und Anfrage ob ausgelgert werden soll */
'getobject type objtype'
objnum=result
trace ?i
'refresh continue'
EXIT
CANCEL:
ADDRESS 'PAGESTREAM' /* Muss durchgefuehrt werden, sonst keine Darstellung wenn neues */
'refresh continue' /* Dokument geoeffnet wird */
EXIT